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-~ file DisplayControl .Mesa 

-- last edited by Sandman, May 12, 1978 3:42 PM 

DIRECTORY 

AltoFileDefs: FROM "al tof il edef s" USING [FP], 

ControlDefs: FROM "controldef s" USING [SD], 

DirectoryDefs: FROM "directorydefs" USING [EnumerateDirectory], 

DisplayDefs: FROM "displaydef s" USING [ 

BlinkCursor, DisplayOff, OisplayOn, InitDisplay. SetFont, SetTypeScript] , 
FontDefs: FROM "fontdefs" USING [CreateFont, FontHandle], 
ForgotDefs: FROM "forgotdef s" . 
ImageDefs: FROM "imagedefs" USING [ 

AddCleanupProcedure, AddFileRequest, AllReasons, Cleanupltem, 

CleanupProcedure, FileRequest], 
ProcessDefs: FROM "processdef s" USING [Detach, Yield], 
SDDefs: FROM "sddefs" USING [sAddFileRequest] , 
SegmentDefs: FROM "segmentdef s" USING [ 

Append, DefaultBase, Def aul tPages , Def aul tVersion, DeleteFileSegment, 

FileHandle, FileSegmentHandle, InsertFile, NewFile, NewFileSegment, Read, 

ReleaseFile, Write], 
StreamDefs: FROM "streamdef s" USING [ 

CloseDiskStream, CreateByteStream, Getlndex, .OpenDiskStream, Setlndex, 

StreamError , StreamHandle, Streamlndex, TruncateDiskStream], 
StringDefs: FROM "stringdefs" USING [ 

EquivalentString, EquivalentSubStrings , SubStringDescriptor], 
SystemDisplay: FROM "systemdisplay" USING [typescript]; 

DisplayControl: PROGRAM 

IMPORTS DirectoryDefs, DisplayDefs, FontDefs, ImageDefs, ProcessDefs, SegmentDefs, StreamDefs, String 
**Defs, SystemDisplay 

EXPORTS DisplayDefs, ForgotDefs « 

BEGIN 

mesafont: short ImageDefs. FileRequest ^ [ 

link: NIL, file:, access: SegmentDefs .Read, 

body: short[f il 1 : , name: "MesaFont . al . "]]; 
sysfont: short ImageDefs . FileRequest <- [ 

link: ©mesafont, file:, access: SegmentDefs. Read, 

body: short[f il 1 : , name: "SysFont. al . "]]; 
typescript: short ImageDefs .FileRequest ♦- [ 

1 ink: ©sysfont, file: , 

access: SegmentOef s.Read+SegmentDef s .Write+SegmentDefs .Append, 

body: short[f ill :, name: "Mesa. Typescript. "]]; 

font: FontDefs. FontHandle; 

fontseg: SegmentDefs. FileSegmentHandle; 

initialize: BOOLEAN <- TRUE; 

imaging: BOOLEAN; 

cleanupitem: ImageDefs .Cleanupltem ^ [ 

link:, mask: ImageDefs .Al IReasons , proc: Cleanup]; 

Cleanup: ImageDefs .CleanupProcedure « 
BEGIN OPEN ImageDefs; 
file: SegmentDefs. FileHandle; 
i: CARDINAL; 

si: StreamDefs .Streamlndex; 
ts: StreamDefs. StreamHandle; 
SELECT why FROM 

Finish, Abort, Save => 
BEGIN 

IF -initialize AND SystemDisplay . typescript ^ NIL THEN 
BEGIN 

StreamDefs , Tr u neat eDiskStream[ SystemDisplay. typescript]; 
SystemDisplay .typescript <- NIL; 
END; 
IF why = Save AND -Initialize THEN 
BEGIN 

DisplayDefs. DisplayOff [black]; 
font. destroy [font]; 

SegmentDef s. Del eteFileSegment[ fontseg]; 
END; 
IF why H Save THEN RETURN; 

imaging ^ ControlDefs .SD[SDDefs. sAddFileRequest] i^ 0; 
mesafont . file ♦- NIL; 
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IF imaging THEN ImageDef s. AdclFileRequest[@mesafont]; 
sysfont.file <- NIL; 

IF imaging THEN ImageDef s.AclclFileRequest[@sysfont] ; 
typescript. file <- NIL; 

IF imaging THEN ImageDef s.AdclFi1eRequest[0typescript]; 
END; 
Restore «> 

BEGIN OPEN SegmentDefs; 

IF (file^mesafont.file) » NIL THEN file *- sysfont.file 

ELSE Re1easeFi1e[sysfont.f ile]; 

fontseg ♦- NewFi1eSegment[f ile, Defaul tBase.DefauUPages .Read]; 

font ^ FontDefs .CreateFont[fontseg]; 

IF initialize THEN 

BEGIN initialize <- FALSE; Displ ayDef s . InitDispl ay[24. 14, 20 ,f ont] END 
ELSE 

BEGIN DisplayDefs.SetFont[font]; DisplayDefs .DisplayOn[] END; 
IF (file^-typescript.file) = NIL THEN 

file <- NewFile[typescript .name, Read+Write+Append", Def aul tVersion]; 
Displ ayDef s.SetTypeScript[ 

StreamDef s.CreateByteStream[f ile, Read+Write+Append]]; 
END; 
Checkpoint ■> 
BEGIN 
IF SystemDisplay. typescript # NIL THEN 

StreamDef s .CloseDiskStream[SystemDispl ay. typescript]; 
D i sp 1 ayDef s.Disp layoff [white]; 
END; 
Continue =»> 
BEGIN 

DisplayDef s.Disp layOn[]; 
IF (ts<-SystemDisplay. typescript) # NIL THEN 

StreamDef s .OpenDiskStream[ts]; 
END; 
Restart => 

BEGIN OPEN StreamDefs; 

D i sp 1 ayDef s.DisplayOn[]; 

IF {ts<-SystemDisplay. typescript) # NIL THEN 

BEGIN 
OpenDiskStream[ts 1 StreamError «> IF error « StreamEnd THEN RESUME]; 
ts.reset[ts] 
END; 
END; 
InLd => 

IF (ts*-SystemDisplay. typescript) U NIL THEN 

StreamDefs .OpenDiskStream[ts]; 
OutLd => 

BEGIN OPEN StreamDefs; 

IF (ts^SystemDisplay. typescript) = NIL THEN RETURN; 
si <- Getlndex[ts] ; 
ts.put[ts,15C]; 

FOR i IN [0,.9J DO ts . put[ts , '-] ENDLOOP; 
Setlndex[ts, si]; 
CloseDiskStream[ts]; 
END; 
ENDCASE; 
RETURN 
END; 

Cursor: PROCEDURE « 
BEGIN 

timer: POINTER TO INTEGER ^ LOOPH0LE[430B] ; 
blinktime: INTEGER; 
DO -- forever 

IF blinktime-timert ~IN[0..13] THEN 

BEGIN [] ^ DisplayDefs. BlinkCursor[]; blinktime ^ timert-f-13 END; 

IF CursorProcess == NullProcess THEN EXIT; 

ProcessDefs.Yield[]; 

ENDLOOP; 
RETURN 
END; 

NullProcess: PROCESS « LOOPHOLE[0]; 
CursorProcess: PUBLIC PROCESS ♦- NullProcess; 

StartCursor: PUBLIC PROCEDURE » 
BEGIN 
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IF CursorProcess ° NullProcess THEN 

ProcessDefs.Detach[CursorProcess ^ FORK Cursor[]]; 
RETURN 
END; 

StopCursor: PUBLIC PROCEDURE - 
BEGIN 

CursorProcess *■ NullProcess; 
RETURN 
END; 

~- file requests 

ProcessFileRequests: PROCEDURE [rHead: POINTER TO ImageDefs . FileRequest] » 
BEGIN OPEN AUoFileDefs; 

checkone: PROCEDURE [fp: POINTER TO FP. dname: STRING] RETURNS [BOOLEAN] 
BEGIN 

ss: StringDefs.SubStringDescriptor *- [dname, , dname. length]; 
r: POINTER TO ImageDefs . FileRequest; 
prev: POINTER TO ImageDefs. FileRequest ♦- NIL; 
FOR r ♦- rHead, r.link UNTIL r « NIL DO 
IF (WITH r SELECT FROM 

long «> StringDef s .EquivalentSubStrings[@ss,@name], 
short => StringDef s .EquivalentString[dname,name], 
ENDCASE => FALSE) THEN 
BEGIN 

IF r.file = NIL THEN r.file <- SegmentDefs . InsertFile[fp , r .access] 
ELSE r.file.fp ^ fpt; 
IF prev = NIL THEN rHead ♦- r.link 
ELSE prev. link ♦- r.link; 
END 
ELSE prev ^ r; 
ENDLOOP; 
RETURN[rHead = NIL] 
END; 

Di rectory Defs . E n umer a teDi rectory [checkone] ; 
END; 

ImageDefs .AddCleanupProcedure[@cleanupitem]; 

Cleanup[Save]; 

IF imaging THEN STOP ELSE ProcessFi leRequests[0typescript]; 

Cleanup[Restore]; 

StartCursor[]; 

END... 



